home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
misc
/
bangerve.lha
/
BangerVersionCopy.dopus
< prev
Wrap
Text File
|
1995-09-06
|
2KB
|
72 lines
/* BangerVersionCopy.dopus kopiert mit DOpus Files und checkt die Versionen
Autor: Andre´ Trettin
Codename: Banger
Begin: 30-Aug-95 00:00:15
Version: $VER: BangerVersionCopy.dopus 1.156 (05-Sep-95)
Usage: Man klick das zu kopierende File in einem Fenster an und definiert
vorher nocht die Quelle. Wobei die Files im Ziel-Fenster mit Banger-
Version bearbeitet worden sein müssen (jedenfalls, die die kopiert
werden sollen). Ansonsten funktioniert dieses ARexx-Script nicht
100%. Viel Spaß noch beim Kopieren der verschiedenen Versionen ! */
options results
options failat 21
address DOPUS.1
busy on
status 3
QWin=result
ZWin=1-QWin
status 13 QWin
QPath=result
status 13 ZWin
ZPath=result
status 26 set 'Kopiere'
getselectedfiles '°' QWin
if result='' then do
busy off
exit
end
FileListe=result
rest='a-z'
CopyVar=0
do until rest=''
parse value FileListe with FileName '°' rest
FileListe=rest
OldFile=ZPath||FileName
NewFile=QPath||FileName
address command 'BangerVersion 'NewFile' QUIET'
if exists(OldFile) then do
Rescan QWin
FileInfo FileName '°' ZWin
OldFileInfos=result
FileInfo FileName '°' QWin
NewFileInfos=result
parse value OldFileInfos with Name1 '°' Groesse1 '°' F1 '°' F2 '°' F3 '°' F4 '°' F5 '°' Version1 '°' F6
parse value NewFileInfos with Name2 '°' Groesse2 '°' F1 '°' F2 '°' F3 '°' F4 '°' F5 '°' Version2 '°' F6
F1=compare(Version2,'V ',)
F2=compare(Version1,'V ',)
if (F1=3)&(F2=3) then do
parse value Version2 with F1 VerNur2 Date2
parse value Version1 with F1 VerNur1 Date1
if VerNur2<VerNur1 then CopyVar=1
if VerNur2=VerNur1 then do
if Date2=Date1 then CopyVar=1
else do
Request 'neues File: ' Name2 ' ' Groesse2 ' ' Version2'0a0a'x'altes File: ' Name1 ' ' Groesse1 ' ' Version1
if result==0 then CopyVar=1
end
end
end
else do
Request 'neues File: ' Name2 ' ' Groesse2 ' ' Version2'0a0a'x'altes File: ' Name1 ' ' Groesse1 ' ' Version1
if result==0 then CopyVar=1
end
end
if CopyVar==0 then copy FileName ZPath
CopyVar=0
end
status 26 set 'Weiter'
rescan ZWin
busy off